home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / intassoc.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  5KB  |  172 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "intassoc.d"
  17. #include <math.h> 
  18.  
  19. #define    CLASS    IntegerAssociation_c
  20. #define    ivType    IntegerAssociation_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    IntegerAssociation_c;
  25.  
  26.  
  27. #line 28 "intassoc.c"
  28. typedef struct  _IntegerAssociation_iv_t  {
  29.     int iKey;
  30.     object iValue;
  31. }    IntegerAssociation_iv_t;
  32.  
  33.  
  34.  
  35. #line 22 "intassoc.d"
  36. cmeth objrtn IntegerAssociation_cm_gNewWithIntObj(object self, int key, object value)
  37. { 
  38.     object assoc; 
  39.     ivType *iv; 
  40.  
  41.     ChkArgNul(value, 3); 
  42.     assoc = oSuper(IntegerAssociation_c, gNew, self)(self); 
  43.     iv = ivPtr(assoc); 
  44.     iv->iKey = key; 
  45.     iv->iValue = value; 
  46.     return assoc; 
  47. } 
  48.  
  49. imeth objrtn IntegerAssociation_im_gDeepCopy(object self)
  50. { IntegerAssociation_iv_t *iv = GetIVs(IntegerAssociation, self);
  51.     object nobj; 
  52.  
  53.     nobj = oSuper(IntegerAssociation_c, gDeepCopy, self)(self); 
  54.     ivPtr(nobj)->iValue = iv->iValue ? gDeepCopy(iv->iValue) : NULL; 
  55.     return nobj; 
  56. } 
  57.  
  58. imeth objrtn IntegerAssociation_im_gValue(object self)
  59. { IntegerAssociation_iv_t *iv = GetIVs(IntegerAssociation, self);
  60.     return iv->iValue; 
  61. } 
  62.  
  63. imeth objrtn IntegerAssociation_im_gChangeValue(object self, object value)
  64. { IntegerAssociation_iv_t *iv = GetIVs(IntegerAssociation, self);
  65.     object ret; 
  66.     ChkArgNul(value, 2); 
  67.     ret = iv->iValue; 
  68.     iv->iValue = value; 
  69.     return ret; 
  70. } 
  71.  
  72. imeth int IntegerAssociation_im_gIntKey(object self)
  73. { IntegerAssociation_iv_t *iv = GetIVs(IntegerAssociation, self);
  74.     return iv->iKey; 
  75. } 
  76.  
  77. imeth objrtn IntegerAssociation_im_gChangeIntKey(object self, int key)
  78. { IntegerAssociation_iv_t *iv = GetIVs(IntegerAssociation, self);
  79.     iv->iKey = key; 
  80.     return self; 
  81. } 
  82.  
  83. imeth objrtn IntegerAssociation_im_gDeepDispose(object self)
  84. { IntegerAssociation_iv_t *iv = GetIVs(IntegerAssociation, self);
  85.     if (iv->iValue) 
  86.         gDeepDispose(iv->iValue); 
  87.     return oSuper(IntegerAssociation_c, gDispose, self)(self); 
  88. } 
  89.  
  90. imeth objrtn IntegerAssociation_im_gStringRepValue(object self)
  91. { IntegerAssociation_iv_t *iv = GetIVs(IntegerAssociation, self);
  92.     object s, t; 
  93.  
  94.     t = iv->iValue ? gStringRepValue(iv->iValue) : gNewWithStr(String, "(null)"); 
  95.     s = vSprintf(String, "( %d, ", iv->iKey); 
  96.     vBuild(s, NULL, t, " )", NULL); 
  97.     gDispose(t); 
  98.     return s; 
  99. } 
  100.  
  101. imeth int IntegerAssociation_im_gHash(object self)
  102. { IntegerAssociation_iv_t *iv = GetIVs(IntegerAssociation, self);
  103.     double t; 
  104.  
  105.     t = .6125423371 * (unsigned) iv->iKey; 
  106.     t = t < 0.0 ? -t : t; 
  107.     return (int) (BIG_INT * (t - floor(t))); 
  108. } 
  109.  
  110. imeth int IntegerAssociation_im_gCompare(object self, object arg)
  111. { IntegerAssociation_iv_t *iv = GetIVs(IntegerAssociation, self);
  112.     int sv, ov; 
  113.  
  114.     ChkArg(arg, 2); 
  115.     if ((sv=iv->iKey) < (ov=gIntKey(arg))) 
  116.         return -1; 
  117.     else if (sv == ov) 
  118.         return 0; 
  119.     else 
  120.         return 1; 
  121. } 
  122.  
  123.  
  124. #line 125 "intassoc.c"
  125.  
  126. objrtn    IntegerAssociation_initialize(void)
  127. {
  128.     static  CRITICALSECTION  cs;
  129.     static  int volatile once = 0;
  130.  
  131.     ENTERCRITICALSECTION(_CI_CS_);
  132.     if (!once) {
  133.         INITIALIZECRITICALSECTION(cs);
  134.         once = 1;
  135.     }
  136.     LEAVECRITICALSECTION(_CI_CS_);
  137.  
  138.     ENTERCRITICALSECTION(cs);
  139.  
  140.     if (IntegerAssociation_c) {
  141.         LEAVECRITICALSECTION(cs);
  142.         return IntegerAssociation_c;
  143.     }
  144.     INHIBIT_THREADER;
  145.     Association_initialize();
  146.     if (IntegerAssociation_c)  {
  147.         ENABLE_THREADER;
  148.         LEAVECRITICALSECTION(cs);
  149.         return IntegerAssociation_c;
  150.     }
  151.     IntegerAssociation_c = gNewClass(Class, "IntegerAssociation", sizeof(IntegerAssociation_iv_t), 0, Association, END);
  152.     cMethodFor(IntegerAssociation, gNewWithIntObj, IntegerAssociation_cm_gNewWithIntObj);
  153.     iMethodFor(IntegerAssociation, gCompare, IntegerAssociation_im_gCompare);
  154.     iMethodFor(IntegerAssociation, gChangeIntKey, IntegerAssociation_im_gChangeIntKey);
  155.     iMethodFor(IntegerAssociation, gValue, IntegerAssociation_im_gValue);
  156.     iMethodFor(IntegerAssociation, gStringRepValue, IntegerAssociation_im_gStringRepValue);
  157.     iMethodFor(IntegerAssociation, gHash, IntegerAssociation_im_gHash);
  158.     iMethodFor(IntegerAssociation, gChangeValue, IntegerAssociation_im_gChangeValue);
  159.     iMethodFor(IntegerAssociation, gDeepDispose, IntegerAssociation_im_gDeepDispose);
  160.     iMethodFor(IntegerAssociation, gDeepCopy, IntegerAssociation_im_gDeepCopy);
  161.     iMethodFor(IntegerAssociation, gIntKey, IntegerAssociation_im_gIntKey);
  162.  
  163.     ENABLE_THREADER;
  164.  
  165.     LEAVECRITICALSECTION(cs);
  166.  
  167.     return IntegerAssociation_c;
  168. }
  169.  
  170.  
  171.  
  172.